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BASSRUN_INIT 18-sep -1984 01: AX-11 Bliss-32 V4.0-74 Pa 1 
| eaeeen She P1i88i8a | HaNsat OesekSalmigr 32.1 - 
3 1 1 MODULE BASSRUN_INIT ( ! Initialize for 

4 ¢ § wal = '1-010° ' File: BASRUNINI. WF) Edit: JBS1010 

4 = 

5 4 1004 BEGIN 

3 5 0S 1! 

3 g O08 ; Sip eager oe cng nace sein seeeronay <erecer smear naee 

° 7” ¥ 

$ 3 008 1 !* ett bee (c) 1978, 1980, 1982, 1984 6 * 

; 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 

: 19 Bo$ : 7” ALL RIGHTS RESERVED. 

; ig og 1 ie THIS SOFTWARE IS Prat SneD uses A Os i AND 7 cf el hes AND COPIED * 

; 1 01 1 !* ONLY IN . ew CE WITH THE TERM AND WITH THE * 

4 14 014 1! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS Sof cane OR ANY OTHER « 

: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTH ERWISE MADE AVAILABLE TO ANY * 

: 16 Bate 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 i? it : - TRANSFERRED. * 

° .* * 

$ 19 ty 1 !@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $1 88 1 ; :. CORPORA TION. 

; 38 00 j 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 ¢ 00 ¢ \ - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. z 

; 36 60 1 ie . 

4 7 0097 1 eee AERA AAAAAAAAAAAAAEAHE ATA AAAAAR RARE AAEEEAAAAEARAAARERAEAEREREREAERE 

3 $s 00 $ | ! 

: 50 $080 1 !4¢ | 
5 $ itd ; } FACILITY: BASIC-PLUS-2 Miscellaneous | 
; 35 0038 | ABSTRACT: | 
: 35 0035 1: This module is used by the BASIC compiler's RUN command to 

; “6 site : initislize the user environment. 

; 38 sit : ENVIRONMENT: VAX=-11 User Mode 

: 40 0040 i AUTHOR: John Sauter, CREATION DATE: 04-JUN-1979 

i 48 004g 1 | MODIFIED BY: 

.- tie 1! 1-001 - Original. 

3 ré Bee ; : 1-002 - Ung proce alt all isigretv* 1/0 before closing files. 

; 47 0049 1 § 1-003 - nag esil't BASSSCTRLC_INIT. JBS 22-JUN-1979 

2 48 0048 1! I- 005 = Change BASSSDET_INIT to BASSSDET STORE. JBS 16-JUL-1979 
; 49 0049 1! ; 05 = Change BASSSDET-STORE to BASSSSTORE DET. JBS 25-JUL-1979 

$ 50 0050 1! 1 - Change TSSSCLOSE zAtt to BASSSCLOSE ALL. JBS 21-AUG-1979 
. 0051 1! 1-00 = Call BASS$CB_GET § ule need not be in the sharable 

3 26 O36 1! librar RF JBS 22- AUG -197 

3 5 5 1! 1-008 = Call BA éssToP oe JBS 14-SEP-1979 

; ae O38 : : 1- - be on RS SuAlT on -. of? Bae popped, in case we are at AST 

: ' evel. ~SEP- 

3 56 its} ' : 1-010 - Call BASSSSTORE_DET correctly. JBS 12-DEC-1979 


Se ee ae — Se 


oo 1e-8ee=19ke 91:40:88 Ladsate $aeSengeumign -oS2:1 Page 33 | 
eg i SWITCHES: 
e§ 
65 SWITCHES ADDRESSING MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES: 


REQUIRE "RTLIN:OTSLNK'; 
' 


TABLE OF CONTENTS: 


Define all OTS Linkages 


FORWARD ROUTINE 


BASSRUN_INIT : NOVALUE; Initialize environment | 


! INCLUDE FILES: 


ie 

oo 
OOoooooO 
PULP PV SSVI 


283S 
SULSUFUNIS SEN ao SBIR AR ERTS SSSR UR OS 


ce em ee ee a ad td td nt = ot = od = 
- 


REQUIRE ‘RTLML:OTSLUB’; 
REQUIRE "RTLIN:RTLPSECT'; 


Logical unit block definitions 
Macros for defining psects 


07 LIBRARY ‘RTLSTARLE’; ! System symbols 
7 ‘ 
8 ' MACROS: 
Bre 
7 ! NONE 
07 ! 
4 : EQUATED SYMBOLS: 
07 i NONE 
07 ' 
07 ! PSECTS: 
0760 ! 
ores DECLARE _PSECTS (BAS); ' Declare psects for BASS facility 
788 i OWN STORAGE: 
764 ' 
69 NONE 
EXTERNAL REFERENCES: 


EXTERNAL ROUT INE 
BASS$STOP : NOVALUE 
AS$$CB_POP : JSB_CB_POP NOVALUE, 
BASS$$CB-GET : JSB~CB-GET NOVALUE, 


i Note: some of the following initialization entry points are marked weak 
i so they will not be loaded if they are not needed. 


Signal fatal BASIC error 
Done with register CCB 
Fetch current CCB 


WOARUNWHSSSLE ARAL OSS NE AEM ODOR E OD 


me ee ee ee eed ed ed = ot 2 = 


SoOCooooooooo: 
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ren Oh legate ve erat 
BASRTL.SRCJBASRUNINI .852;1 


Be 9:98:88 


19 
19 


6 
ep- 
ep- 


ts 


1 
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_INIT 


SRUN 


_- 
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“ 
ow 
sa se 
Ss Bs 
< 2 @ 
§ o- @& 
. ecw 
°o Cc ~eeo ~ 
oe - + > i= 
4 ~” w we 
ve 2 ta °o 
nwo =casS w 
dd Cvudtwo@e 
Ow Our re ~ . 
ca Caw eur ee 
~ - w“ 
ceeoeooononoe ° 
CONN NN AN NN ONS — 
Ot ee tee 
yas ys ys vy HH SY > i= 
&eeeaeaenen eae @e 
Cee eR eee ee & he 
be em srer sree ao 
te te te te tee eee CO o 
@ccccccccc—~ & 
1S) os og ee ee os ee LD a 
me we mm mem em em em ees - 


. ecm we on 
is. Se ae Ss ] 
Siosss=Se - 
JS? Fu Sy. $ 
4 Yess. oes z 
2353324252535 = 
53233552535 2 
2o22 oe x) “22 
— ee ot oe “or eins * ee. « 
—— hee er 
Zw Z Ze Ze ” 
RKRQ— ZZ st FZ 2) 
( ewes § Se Ct oO 
wwe 6 ge [ vv) 2 
~™~ - 0” 
zo o<awoo 4 
-—— we eer a 
mattre unu 4 
AA SFM OF MF ot af 
OP F 2 AD AAA 241 A 4 


The following are the error codes used in this module. 


EXTERNAL LITERAL 


Cel ek ek el el ol ll cel el oe ol el oe cl el oe 


ae ew fe fe a fale lola lo lo le lelololololo) 


BOONES ERSTE 
° 


I ei gee cee eel coun cell ll eel see se ce ee ce ed eel 


PROS FSF FS FOSS FSS FS FS FS ee re Fe se cere *e 


kK 6 
SRUN_INIT 16-Sep-1 1:09: AX-11 Bliss-3 
mits 1358-1382 F1:98:88 = HBAsate sae Sea 
; GLOBAL ROUTINE BASSRUN_INIT : NOVALUE = ! Initialize for RUN command 


oe 


i FUNCTIONAL DESCRIPTION: 
Initialize the environment for the RUN command. All of the OWN 
storage must be set to its initial state, in case this is not 
the first RUN command. 
! FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
A lot of OWN syorage is initialized, by calling subroutines. 
3 


If any of the initialization routines are not present, an error 
is signaled. 1/0 system problems can also be signaled. 


St 


ee a tt 


NOU PU OOD NOP UNOS 


BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_LREG : REF BLOCK C, BYTE); 


aun 


'¢ 

! Undo all recursive 1/0. This will fail if there is any non-BASIC 1/0 

! in progress, but this routine is only supposed to be used in a BASIC-only 
: environment. 


oo COoOoooooo 


Ww 


WHILE (BASSSCB_GET (); .CCB NEQA 0) DO 
BEGIN 


ARAN SOPOT PUN ODS WOM PUM OOO WO AR WD OO OAD DOES 


WN "OC OBNOUE Wi" O 0O@ 


'¢ 
: Issue a SWAIT to be sure that RMS is not using the RAB. 


SWAIT (RAB = .CCB); 
BAS$SCB_POP (); 
END; 


e 
te 


! Close all files. The compiler guarantees not to need 
! any files open when calling this routine. 


PIPPI I EE WILELELPIPIMIPIPIPIMPIPINPINIPII a td tt tt kt kk kk kk kd dd 


Be Be Se Se Se Ge Ge Ge Se Se Se Se Fe Be Se Ge Be Fe Ge Se Ge Se Se Ge Se Se Se Se Be Ge Se Ge Se Se Se Se Se Se Se Se Ge Se Ge Se Se Ge Ge Se Se Se Ge Oe Ge Ge @eace 


em ee ek a a a ad a at ed es sd = = a a as — 4) 2 


RESLESE 


Wm 


ge 


V4.0-74 
UNINI. $251 
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$SRUN_INIT 18-Sep-1984 01:09: AX-11 BLiss-32 v4.0-74 > 6 

itty 1eneep=19be $1:5088  Eedsmre Ske Seagevmi gr oS2-1 OF 63) 
° 195 ¢ le 
196 BASSSCLOSE_ALL ©; 
138 $ ; Now, call each initialization routine. 

| IF (BASSSSTORE_DET NEQA 0) THEN BASSSSTORE_DET (UPLIT (0, 0)) ELSE BASSSSTOP (BASSK_PROLOSSOR); 

5 


IF (BASSSNUM_INIT NEQA 0) THEN BASSSNUM_INIT () ELSE BASSSSTOP (BAS$K_PROLOSSOR); 


: IF (BASSSNUM2_INIT NEGA 0) THEN BASSSNUM2_INIT () ELSE BASSSSTOP (BASS$K_PROLOSSOR); 

i IF (BASSSRAND_INIT NEQA 0) THEN BASSSRAND_INIT () ELSE BASSSSTOP (BASS$K_PROLOSSOR); 

; 4 ses IF (BASSSRECOU_INIT NEQA 0) THEN BASSSRECOU_INIT () ELSE BASSSSTOP (BAS$K_PROLOSSOR); 

: My Br IF (BASSSSTATU_INIT NEQA 0) THEN BASSSSTATU_INIT () ELSE BASSSSTOP (BASS$K_PROLOSSOR); | 
; 1§ ° % IF (BASSSERR_INIT NEQA 0) THEN BASSSERR_INIT () ELSE BASSSSTOP (BASSK_PROLOSSOR); 

; V3 rR IF (BASSSFIELD_INIT NEQA 0) THEN BASSSFIELD_INIT () ELSE BASSSSTOP (BAS$K_PROLOSSOR); | 
; " Bae IF (BASSSSTOP_INIT NEQA 0) THEN BASSSSTOP_INIT () ELSE BASSSSTOP (BAS$K_PROLOSSOR); 
; 9 $879 i* initialize control C handling for the RUN environment. 

3 221 880 2 !- 

; 22 0881 BASSSCTRLC_INIT (); 

; 22 0882 1 END; ! of routine BASSRUN_INIT 


-TITLE BASSRUN_INIT 
IDENT \1-010\ 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
00000000 00000000 00000 P.AAA: .LONG 0, 0 ; 
-EXTRN BASSSSTOP, BASSS$CB_P | 


B_POP 
-EXTRN BASSS$SCB GET, BASSSCTRLC_INIT 
*EXTRN BASSSCLOSE_ALL, BAS$K_PROLOSSOR 


nunwno 
Se 
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$ 
-WEAK © BASSSSTATU-INIT 
-WEAK BASSSERR_IRIT, BASSSFIELD_INIT 
-WEAK BASSS$STOP_INIT 


OFFC 00000 -ENTRY BASSRUN_INIT, Save R2,R3,R4,RS,RO,R7,RB,RI,~; 0797 


BASS$SERR_INIT, R10 ; 
BASSSSTATU_INIT, R9 ; 
BASSSRECOU-INIT, R8 ; 
BASSSRAND_TNIT, R7 ; 
BAS NIT, R6 : 
BASSSNUM_INIT, RS : 


000000006 
: ee: 


000000006 00 
000000006 


BASSRUN, INIT 


000000006 98 


90 


? 
$3 000000006 
000000006 00 


SOOO (ND ONES “WIP ONO WA OV109 WA OUI NA OUR WA OUI WO MOL OMO—D -DOO"O 


io 
Im 
SOOOMODOOPMOMGOOFPOMBDOOAFPOMBDOOAXPOMDOOSCOMDWOOPFMOM100 F OP OMOOUN*MNOOWBO 


E 

A 

1 — 1$: 
) 044 

1 4 
00 4 

18 00084 

11 iE) 
fe 0059 2$: 
75 dooes 

9F 00065 

FB 00068 

11 00068 
7B 00070 
9 ie 4$: 
13 0007 

FB 0007 

11 00078 
9A 0007D 5$: 
FB 0008 
5 00083 6$: 
13 00086 

FB 00088 

11 00088 
9A 0008D 7$: 
FB 00090 
5 48 8$: 
13 00096 
FB sb 

11 00098 
9A 00090 9$: 
BER 0 
5 006 
FB QOOA8 

11 OOOAB 
9A QOOAD 118% 
FB 0008 
0083 12$ 
1 0B 

FB 0008: 

11 00088 
t. Bocb 13$ 
9 C3 148: 
§ 00C 

fe 00C 

11 Q00CB 

GA 45 15$: 
FB D 

9 DS 168: 
1 3 DA 

FB oc 


iSoseoct9ge 01:09:85 


BASSSSTORE DET, R4 


#BASSK K PROCOSSOR, R3 


BASSSS T 
Bas Ha B Get 


SYSSWAIT 
st siss POP 


BASSSCLOSE_ALL 
peste DET; RO 
#i, AABASSSSTORE _DET 
4s 
SSSsTOP 
i due INIT, RO 
20, BASSSNUM_INIT 


R3, = (SP) 

#1, BASSS$STOP 
ASSSNUM2_ INIT, RO 
0, BASSSNUM2_INIT 
as 

#1, BASSSSTOP 

BASSSRAND_INIT, RO 
ty BASSSRAND_INIT 

#1, BASSSSTOP 

BASSS$RECOU_INIT, RO 

BASSSRECOU_INIT 


, (SP 
#1, BASSS$STOP 
BASSS$STATU_INIT, RO 
BASSSSTATU_INIT 
R3, -(SP) 
#1, BASSSSTOP 
S$SERR_INIT, RO 
res BASSSERR_INIT 
(SP) 
ae BASS$SST 
A serielD. ONIT. RO 
#0, BASSSFIELD_INIT 


AX-11 Bliss-32 V4.0-74 
BASRTL.SRCJBASRUNINI.B 


$251 
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| 
0870 | 
0872. 


0874 


Lines/CPU Min: 39 
Lexemes/CPU-Min: 32657 
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BASSRUN_INIT 16-Sep-1984 01:09: AX-11 Bliss-32 V4.0-74 Page 8 

ett VexSeb=19Be 91:98:88 KaXsateeShe$exeaui dr 632.1 a 
11 Q00E RB 18$ ; | | 
(5 Pe ates in CALES nS BASS$STOP : | ! 
36 000000006 9 9% QO0ER 188: ROVAB faststo. tr RO : 0876 | 
000000006 00 0 Fe ors CALLS BASSS$STOP_INIT : 
: 11 000FB BRB 208 F 
9A OOOFD 19%:  MOVZBL R3, (SP) : 
6 1 FB 109 CALLS f. BASSSSTOP : | 
000000006 0 FB 00103 20$ CALLS #0, BASSSCTRLC_INIT ; 0881 
04 0010A RET ; 0882, i 
; Routine Size: 267 bytes, Routine Base: _BASSCODE + 0008 | 
| 
; 226 0883 1 
3 €e9 0884 1 END ! of module BASS$RUN_INIT i 
: 226 0885 1 F 
3 227 0886 0 ELUDOM 
| 
; PSECT SUMMARY | 
: Name Bytes Attributes 3 
; _BASSCODE 275 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | ; 
| : 
; Library Statistics | : 
BS Sse je ch Re oe ee eA 5 1Ur oe” ieungentnenes Symbols -------- Pages Processing | 
3 File Total Loaded Percent Mapped Time : 
3 .$25S$DUAZB:(SYSLIBISTARLET.L32;1 9776 3 0 581 00:01.1 | ; 
: COMMAND QUALIFIERS 3 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/L1S=L1S$:BASRUNINI /OBJ=0BJ$:BASRUNINI MSRC$:BASRUNINI /UPDATE=(ENHS :BASRUNINI i 
Size 267 code + 8 data bytes : 
Run Time: 708. : 
Elapsed Time: 0:18. : 


VAX-11 Bliss=-32 V4.0-742 


7 
18-Sep-1984 01:09:53 


10 
; Memor 


ASSRUN_INIT 
; 


115 pages 


Used: 
tion Complete 


ile 


; Comp 


003 AH-BT13A-SE 
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